zavretie formu
Otázka od: Werki
16. 12. 2002 13:15
Vie niekto, preco mi toto niektore formy vola 2x?
for i:=0 to Screen.FormCount-1 do begin
Screen.Forms[i].Close;
end;
Werki
Odpovedá: Ondrej Kelle
16. 12. 2002 13:23
> Vie niekto, preco mi toto niektore formy vola 2x?
>
> for i:=0 to Screen.FormCount-1 do begin
> Screen.Forms[i].Close;
> end;
Cau, skus to odzadu:
for I := Screen.FormCount - 1 downto 0 do
Screen.Forms[I].Close;
Close totiz moze dany formular uvolnit a tym padom sa dekrementuje
Screen.FormCount.
HTH
TOndrej
Odpovedá: Obermaier Petr Ing.
17. 12. 2002 6:31
> Od: Ondrej Kelle [SMTP:O.Kelle@digitalpublishing.de]
> for I := Screen.FormCount - 1 downto 0 do
>
Neexistuje neco ve smyslu Screen.FormCount, ale z hlediska vsech formu
aplikace? Naivne jsem zkusel Application.FormCount, ale to samozrejme neni ono.
diky
Ober
Odpovedá: ing. Jan Fiala
17. 12. 2002 6:48
17.12.2002 Obermaier Petr Ing.:
>> Od: Ondrej Kelle [SMTP:O.Kelle@digitalpublishing.de]
>> for I := Screen.FormCount - 1 downto 0 do
>>
> Neexistuje neco ve smyslu Screen.FormCount, ale z hlediska vsech formu
aplikace? Naivne jsem zkusel Application.FormCount, ale to samozrejme neni ono.
Pokud jde o MDI aplikaci, tak existuje MDIChildCount
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz
Odpovedá: Obermaier Petr Ing.
17. 12. 2002 7:04
> Od: ing. Jan Fiala [SMTP:jan.fiala@iol.cz]
> Pokud jde o MDI aplikaci, tak existuje MDIChildCount
>
Nejedna. Menim takhle v aplikaci charset vsech komponent formu (s Font
property) a volam to pro jednotlive formy. Bohuzel musim hlidat, pokud mi
nejaky form pribude.
Ober
Odpovedá: ing. Jan Fiala
17. 12. 2002 7:38
17.12.2002 Obermaier Petr Ing.:
>> Od: ing. Jan Fiala [SMTP:jan.fiala@iol.cz]
>> Pokud jde o MDI aplikaci, tak existuje MDIChildCount
>>
> Nejedna. Menim takhle v aplikaci charset vsech komponent formu (s Font
property) a volam to pro jednotlive formy. Bohuzel musim hlidat, pokud mi
nejaky form pribude.
V tomto pripade jde pouzit Screen.Forms a testovat vlastnika (Owner)
formularu. Ten se uvadi pri TForm.Create(vlastnik);
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz